Interactive Media Design Review 1999/Interactive Media Design Review 1999.iso/pc/allfiles/Blix/blix.dxr/Script_46_ArrayHandler.ls

Text File | 1999-04-28 | 643 b | 35 lines

global gbumpermaparray

on makeArray arrayCol, arrayRaw
  repeat with xCell = 1 to arrayCol
    repeat with yCell = 1 to arrayRaw
      writeArray(xCell, yCell, "....")
    end repeat
  end repeat
  return
end

on writeArray x, y, value
  if count(gbumpermaparray) >= x then
    ytemp = getAt(gbumpermaparray, x)
  else
    ytemp = []
  end if
  setAt(ytemp, y, value)
  setAt(gbumpermaparray, x, ytemp)
end

on readArray x, y
  ytemp = []
  ytemp = getAt(gbumpermaparray, x)
  value = getAt(ytemp, y)
  return value
end

on myDelayTimer myTime
  myLimit = the timer + myTime
  repeat while the timer < myLimit
    nothing()
  end repeat
end